6800 Software May 1978 


Compiled by: Julian E. Jetzer Sheboygan, WI 


This month we will present part II of the software offerings 
submitted by Stephen Heinecke of Allenton, WI. 


The program presented is another version of much discussed 
and presented program "LIFE". However, you 6800 fans will 
find it unique in that few are presented in assembly language. 


LIFE has a variable:array size from 3 X 3 to 15 X 15. The 

height and width don't have to be the same size. While keying 

in your pattern any character may be used to represent the 
asterisk but only the space key will do for a space. This 

allows you to index your patterns. Control X is used for the 
backspace here elsewhere it is the up arrow. To end a line 

you may type a carriage return. To end the pattern, type in 

the escape key (hex 1B). The maximum limit of generations is 

9°9 and the maximum limit skipped is 127. Automatic control 

lets it keep cycling until a stop is encountered. Manual control 
will stop after each pattern after it homes up. Some of the messaqes 
may not work since they use my own backspace and line up. 


This is due to the fact that I have modified my cursor 
control board so that I can use the backspace and line up. 
Control X (Hex 18) performs a backspace. Control Y (Hex 19) 
performs a line up. All other functions remain as listed in 
the SWTPC manuals. 


The listing shows Hex 5F as a backspace. This will be correct for 
SWTPC terminals. 


For more information on "LIFE" and what it is all about I 
suggest you read over some of the listings in 101 Computer 
Games and similar publications. 


Have fun with "LIFE". Our next offering will be a MULTI- 
GAME program I'm sure you will have a lot of fun with. It 
will appear in a subsequent issue of the newsletter. 
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Please send 6800 programs and information to: 


Julian E. Jetzer 
6400 Hawthorn Road 
Sheboygan, WI 53081 


This is a sample listing of "LIFE" 
Typed in characters are underlined. 


*L 

#G 

LIFE 

A PATTERN GENERATING GAME 
PLEASE, ENTER HEIGHT? 3cr 
PLEASE, ENTER WIDTH? 3cr 


PLEASE, ENTER PATTERN. 
12cr 


THANK YOU 
HOW MANY GENERATIONS? 5cr 


HOW MANY SKIPPED? Ocr 
AUTOMATIC OR MANULA CONTROL? A 


* % 
% 


GENERATION O ,POPULATION 3 


% % 


% % 
GENERATION 1, PCPULATION }; 


% % 
% 


GENERATION 2, POPULATION 
STABLZ PATTERN. 


When the system was first run noise would occasionally reset the 
-Tarbell Dise Interface. This was traced to the EXTERNAL CLEAR line on 
the S-100 bus (pin 54). This line is not connected to anything in the 
SOL-20, and has no pull-up resistor on the Tarbell interface. A 
pull-up resistor was installed on the Tarbell Dise Interface from pin © 
10 to U28 to +5 volts which solved the problem. 

The only problem found in using the DZ80 in the SOL-20 is that 
the cassette tape could not be read until a .002 uf capacitor was 
put on the chip select line of the SOL-20 1K RAM memory (pin 13 
of U9). This solution is not understood; however, it works and 
appears to have no side effects. 

In the course of the WAIT STATE battle, the Tarbell Disc READ 
and WRITE software loops were shortened by replacing the loop exit 
JP instruction with a RP. This shortens these loops by about 4 u sec.. 


FAST READ LOOP 


RLOOP: CALL FASTLCOP 


RDONE: IN DISCSTATS 
ANI 9DH 
RET 
FASTLOOP IN WAIT 
ORA A 
RP 
IN DISCDATA 
MOV M,A 
INS: 


JMP FASTLOOP 


FAST WRITE LOOP 


WLOOP: CALL FASTWRITE 


WDONE : IN DISCSTATS 
ANI OFDH 
RET 
FASTWRITE: IN WAIT 
ORA A 
RP 
MOV A,M 
OUT DISCDATA 
INKi 2: 8 


JMP FASTWRITE 


The SOL-20 CP/M MACHINE with DZ80 SUPER-CHARGER 
By 


Tom Nunamaker & Don Stevens 


Our goal was to build a CP/M system around the compact and 
flexible SOL-20 with its five S-100 card slots plus video, and. 
cassette hardware using a Tarbell Floppy Dise Interface. The 
Tarbell Disc Interface was attractive because of its flexibility 
in choice of Disc drives, plus it's low cost and the availability 
of a CP/M software driver. A DZ80 addition allows one to run the 
growing body of software being generated for the Z80 CPU. Last 
but not least, we wanted a soft sectored IBM 3740 type system 
because of the widespread use of this format. 

The modified CP/M I/O supplied by Tarbell is designed to use 
I/O addresses from F8H to FCH which is incompatible with the SOL-20; 
so these addresses were changed to E8h to ECH. This change also 
makes the cold start ROM supplied with the Tarbell Disc Interface 
useless; however, one can program a new RCM. We have been using a 
cold start loader written from cassette tape, which is not really 
that inconvenient as the cold start loader is only needed when the 
system is first powered up. 

When the system was first brought up, it would only function 
with INTEL 8080A chips! This problem was traced to the interaction 
of the WAIT state circuitry on the SOL-20 and the Tarbell Disc 
Interface. First off, the SOL-20 adds a WAIT state to all normal 
system IN and OUT instructions. This is probably done for the 
sake of the slow UARTS used on the SOL-20. In any case, these extra 
WAIT states cut the timing margins of the Disc READ and WRITE 
software loops to bare bone. In addition to the above WAIT state 
situation, there is a potential Hang-Up condition associated with 
the WAIT state gating on the Tarbell Dise Interface when used with 
some manufacturers 8080 CPU chips. What happens is that when 
executing a STATUS IN from the Tarbell Dise Interface, circuitry 
on the Tarbell Dise Interface connects PWAIT (S-100 pin 27) to 
PRDY (S-100 pin 72), the consequence of this is that if a WAIT state 
is ever entered the system willHang-Up for ever!! This signal 
path was broken by cutting the trace at pin 13 on U57 on the Tarbell 
Dise Interface board. After breaking this loop, all manufacturers 
8080 chips we tried worked including the DZ&80 CPU. 

In an effort to kill the IN and OUT additional WAIT states in 
the SOL-20, the lines on pin 5 and 6 of U53 were disconnected. 
However with normal IN and OUT timing, tape I/O became marginal 
because of the slow UART. A compromise was reached where by the 
SOL-20 was modified to only add the WAIT state on SOL-20 IN instructions. 
This may be accomplished by connecting a wire from pin 6 of U83 
to pins 5 and 6 of U53 on the SOL-20 CPU board. 


Locn 


0280 
0282 
0285 
0287 
0288 
028B 
028D 
028F 
0291 
0293 
0295 
0297 
0299 
029B 
029D 
029E 
029F 
O2AL 
02A3 
0246 
02A8 
O2AA 
O2AC 
O2AE 
02B0 
O2B1 
02B2 
O2B 
02B7 
02B9 
02BB 
O2BD 
O2BE 
02CO 
02C1 
0203 
O2ch 
0206 
02c8 
O2CB 
O2cD 
O2CF 
O2D1 
O2D2 
O2D3 
02D5 
O02D38 
O2DA 


bl Be B3 


DI’ 2A 

7F Ol YF 
8D hE 
5c 

BD El AC 
81 OD 
27 OP 

81 5F 
26 13 

8D OA 
Cl 0} 


BD 00 22 


CE 05 02 


STRING 
STR2 


STINP 


STBACK 
STBCK2 


STOUT 


ERROR 


STaND 


SHIFT 


SHFT2 


STLOCN 


STX D 


SAVE 
olff 
STLOCN 


INEEE 


String imut processer 

Clear the byte before the string 

Go get the string location 

add one to counter 

Go pet a character 

If it's a carriage return 

then end the string 

If it's not the backspace flag 

then go check if it should be stored 
Go print a backspace and clear this byte 
If this is the beginning of the string 
don't print any more backspaces 

If not print another backspace 


Adjust pointer and counter 


Clear byte pointed to 
P int a backspace 


If character is not a number 
then go get another chatacter 


otherwise store it after masking of 

ton four bytes 

Increment pointer and decrement counter 
If counter # O go get another byte 
Otherwise ERROR by to many bytes 

Pint "erlt2" 


and get another string 

If the bytes were entered 
then get location and return 
If two bytes were entered 
Then shift up once 

If no bytes were entered 
Then go do error routine 
Other shift uo twice 


When there are less than 3 bytes 


entered then then bytes must be moved 
so that the ones are in the ones place 
and the tens are in the tens place, 


Nere is location of string and 
the count cf bytes 


B2 B3 


START DES 
bus 
05 00 NWLIFE LDX J 
BB BSR 
FO LDX D 
B7 BSR 
03 00 LDX I 
KO BSR 
DO BSR 
35 STAB D 
cc BSR 
hh STAB D 
10 LDAA I 
SBA 
3F STAA D 
aC 
Sc STAA D 
80 LDAA I 
6 STAA D 
05 60 STAA E 
00 2F JSRE 
30 LDAA I 
ol 62 STAA E 
00 46 MORGEN CLR E 
03 80 LOX 
B9 BSR 
h9 BSR 
60 GLl CLR X 
00 GL2 LDAA X 
OA BNE 
INX 
DECB 
F8 BNE 
71 BSR 
F2 BRA 
00 13 LDAA X 
30 GL ADDA I 
60 STAA X 
INX 
DECB 
F6 BNE 
9A BSR 
1D BSR 
cS STAA D 
9h BSR 
EL. AC JSR E 
ha SUBA I 
BA STAA D 
INX 
8D BSR 
00 2F JSR E 
9A BRA 


MODE 
Leen 0560 
LOOP 
ASCII O 
Loen 0))62 
MODE 
0380 
PRET TL 
STRIN 
X%+60 

X+00 

GL 


Relocate the stack 


Clera out the areas for the field, 
population count, generation count 
and their respective compliments 


Print "homeeofLIFEcr1f1fHEIGHT ? " 

yet the height and 

get the height and print "WIDTH ? " 
Store the height (i of lines) 

Get the width and print"homeeofPATTERNcr-: 
Store the width (/ of cells) 

Compute the tab for center 


and store it 

Compute the border adjustment 
and store it 

Set the mode to accetp 

the inputed pattern 

Prevent final display 

Go get the pattern 

Set the generations to zero 


Set the mode to print the pattern 
Print "home eof GENSRATION LIMIT? " 


Get the generation limit 
lear the final display prevention 
Sect up the limit so that it will ston the 
loop when it has been reached. 
All leading zeroz must be cleared 


The number zero is not allowed 


Limit must be positioned 256 bytes 
above the generation count 

And digits must be in proper ASOII 
number format 


Print "crlf=nTER SKIP FACTOR. ? " 
Get the skip factor 

and store it 

Print "crlfAUTO/MANUAL CONTROL ? " 
Get the answer 

A = automatic control 


Print "homeeof"! 


Print out pattern(s) 


Bl Be 


B3 


SIZE 
SZ2 


WRNGSZ 


BNRY2 


BINARY 
BN2 


BNiiRR 
BNHND 
BN3 


BNTENS 


BNEND 


JSR i 
CMPA I 
BCS 
CMPA I 
BCC 
JSR E 
JSR E 
JSR E 
BRA 


BRA 


BINARY 
03 
WRNGSZ 
10 
WRNGSZ 
CRLF2 
PDATAL 
BHERR 
SZ2 


BINARY 


STRING. 


X+00 
BN3 


BNHND 
ERROR 
BN2 
6); 
X+02 
X+01 
BNEND 
OA 


BNTENS 


BNERR 


Go get a number and convetr it to binary 


3 is the smallest size a lowed 
if smaller vo get another size 
15 is the largest size allowed 
if larger go get another size 
Go print "cr1f" 

And then print next message 
Get another size and then 
check it again 


Get a number and convert it to binary 


Get a number 
Get the hundreds byte 


If no hundreds go to tens and ones 


If one hundeed add it 
Otherwise it an error 


Add one hundred 

Add the ones 

Get the tens 

If no tens then return 
Otherwise add ten 

and decrement count of tens 
untill all tens have been added 
Check to make sure that we 
havent entered a negative number 


Bl B2 B3 


FC 


EO 


CC 


DL 


ENDPAT 


NL2 
NEWLIN 


NOBACK 


SPCR 


TvOSPC 
SPACE 


BACK 


CLRARY 


CLRPOP 
CLR3 


CLEAR 


SPACE 
SPACE 
SPCR 
SPACE 
OUTS 


CELS 
NOBACK 


X+00 


_ 18 


OUTE 


00 
CLEAR 
GEN 
CLP3 
PGP 


03 


X+00 


CLEAR 


TO end the pattern input cycle 
you simply increment the stack tirice 
and return to main control 


To end a line the pointer and cell 
counter must be set to the values 
they'd be if it ended normally 


you cannot back beyond the begining 
of a line so pointer and counter must 
bet set and a space is printed 


Print a set of spaces as counted 
by B to tab over and center pattern 


Print two spaces 
Print one space 


If count equal limit then you're at 
the beginning and cant back further 
Otherwise do a backspace adjusting 
the pointer and counter and 
clearing the present memory cell. 


Print another backspace just to keep 
thing lined up 

Clear the arrays 

Clear the generation counter 

Clear the nopulation counter 

I thought it would be nice to let 


the processer rest for a while. 


Clear an area as defined by the 
index and B 


Locn Bl B2 B3 


012C 
012% 
0130 
0132 
013) 
0136 
0138 
0139 
013B 
O13D 
OL3E 
0140 
O12 
0143 


0150 
0152 
015) 
0156 
0158 
O15A 
015D 
O1LSF 
0161 
0163 
0165 
0167 
0168 
O16A 
016C 
016E 
O16F 
0171 
0173 
0176 
0179 
017B 
017D 
O1L7F 
0181 
0183 
0135 
0187 
0189 
018B 
O18F 


DF F8 


Dl 


2C 
AC 


INCPOP 


INC2 


INC3 


MDCTRL 


PRCSS 


RTSCTL 
MARKR 
THRK 


INPAR 


STX D 
LDX D 
LDAA X 
CMPA I 
BEQ 
ORAA I 
INCA 
STAA X 
LDX D 
RTS 
LDAA I 
STAA X 
DEX 
BRA 


BMI 
BNE 


SAVEBB 
POP 
X+02 
ASCII 9 
INC3 
ASCII 0 


X+02 
SAVEBB 


ASCII 0 
X+02 


INC2 


INPAT 
PRCSS 
PRCSS 
TWOSPC 
ASCIT * 
OUTEEE 
SPACE 
X+00 
RTSCTL 
03 
AARKR 


L1 
MARKR 
X+00 


60 

X+00 
INCPOP 
INERE 
ASCII soc 
SPAcy 

12 

BACK 
ASCIIcr 
NSWLIN 
ASCITesc 
ENDPAT 
03 

STF RK 
SPACE 


Increment popul ation. 


Get a digit 
if it is less than 9 


increment it and 
store it back where you found it 


and return, 

Otherwise set that digit to zer0d 
and store that where it came from 
and set pointer to nest digit up 
and increment that digit 


If mode if negative goto pattern input 
if # O skip the printing section 

-o process the cell 

if dead print two spaces 

other wise print an "x! 


and a space 

Get this cell 

If allready dead then leave (quietly) 
If this is a.birth 


or a surviver 


then set the marker 
Otherwise kill off any residubls 


Get the marker 

Store the marker 

count one living cell 

Gen a character 

If it's a space 

go print another space 

If it's my backsvace 

zo do backspace routine 

If it's a carriave return 
go start a new line 

If it's an escape character 
go finish the pattern 
Otherwise it's a baby (see line 0163) 
Lets make it comfortable 
and leave some space for it 


Locn Bl B2 B3 


OODO 96 6 FNLDSP LDAA D MODE Final display 

ooD2 26 02 BNE FD2 Test skip mode 

ooDy 8D 1) BSR PRG+P Print " gen + pop 

0OD6 «CE Ol BO Fre Lr, Z OBO Print "FINAL DISPLAY" 

OOoD9 8D 12 BSR PRTAAA 

QODB 8D DO BSR INAAAA Get an input 

OODD 81 1B CMPA I ASCIIesc is input an escape 

CODF 2707 BEQ Ir'b3 if so return to main control 
OOEL 8D 1D BSR NWCYCL if not recycle the field 
OOES* SI INS and find out how long to go on 
OOE, 31 INS 

OOES 7E 02 2D JP E 

OOE3 39 Fp3 RTS 

OOFA CEO) 5, PPG+P LDX I ols) Print " GENERATION ??7,POPULATION ??? 
OOED 7E EO 7E PRTAAA JUMP E PDATAL homehome" 

OOFO 06 00 FIELD 

OOF2 Ol 60 GEN 

oor, oO 70 POP 

0100 =DE FO © NWCYCL LDX D FIELD Move this pattern 256 bytes 
0102 «OF CLRB up for the next old pattern 
0103 A6 00 MOVE LDAA X X+00 

0105 03 INK 

0106 A7 FF ~ STAA XK X+FF NOTS: I used the saine trick here to 
0108 SC INCB move it up 256 bytes 
O1LO9 Cl FO CiMPA I F 

O10B 26 F6 BNE MOVE 

OLOD CEOS EF LDX I OSEF Set un the next generation field 
0110 A6 11 NEWGEN LDAA X RE SEIE Get a cell 

0112 «2A 10 BPL NG2 if that cell is negative 
O11l4  6C 00 INC X X+00 then increment all the cells 
0116 6¢ Ol INC X X4+01 around it 

0118 6C 02 INC X X+02 

OllA 6¢°210 INC X X+10 

O1LLC 6C 12 INC X X+12 

OLLE 6C 20 INC X X+#20 

0120 "60°21 TNO <x X+21 

0122 6G 22 ING SX X#22 

OL2y 08 NG2 Iilk increment nointer 

0125 SA DECB decrement count 

0126 26 8 BNE NEWGMN if #0 do it avin 

0128 DE Fe LDX D EN Increment the generation 


OlL2A 20 Oh BRA INC2 


Bl B2 &3 


DE FO 
C6 FO 
8D 12 
271D 
DE Fy 
8D OA 
27 23 
DE F2 
8D Ol 
27 9 
20 27 
C6 03 


CE Ol LO 


CMP1 
CuP2 


CMPEND 


STBL 


zropop 


INAAAA 


NEXT 


NXT2 


NXT3 
NXT) 
FRCOPRT 


NXT5 
NXT6 


X+FF 
CMPEN 


CMP2 


MODE 
I'RCPRT 
PRG+P 


PRTAAA 
INAAAA 


ASCII O 
Oul0 
X+32 
PRTAAA 
INEEE 


LODE 
NXT2 


mT) 
PRG+P 
2? 
NKT3 
TNAAAA 
SKIP 
NXT6 


00-7F 
NXTS 


MODE 
NWCYCL 
LOOP 


Compare this pattern with the last one 


If they're equal then do stable routine 
Test population count 

= aie 

if zero go report no more life 

Test generation count 


if equal limit go report final display 

otherwise end this loop and prepare next 

Compare three bytes 

Compare loop 

note; the bytes compared are 256 bytes 
apart 

if inequality detected return 


Was this a print or skip loop 

if it was skipped go print out pattern 
Nlse print "GENERATION ???, POPULATION ??? 
home homeeofSTABLE PATTERN" 


Go wait for any imut then return 


Store a 0 after the population. 

Print "homeeof NO MORE LIFE crlf 
GENERATION ???, POPULATION 0" 
home home" 

Wait for any input then return 


Is this the imut mode 
if so then return to 


If this is a skip then skip print sectior 
Go print " GENERATION ?, POPULATION?homeoi 
If this wait flag is cleared then 

do not wait for an imut, 

if not wait for any input 

Test for skip on not skip 

if not skip dont change mode 

increment mode 

is this the last skip 

if not store mode as is 

Force the loop to print by clearing mode 
store mode 

Set up for new cycle 

Go to the next loop 


Bl Be B3 


CE Ol, EO 
BD EO 7E 
CE 00 00 
08 
39 


BD 01 C8 
DE FO 
C6 XX 
D? 67 
D6 16 
27 02 
2A 05 
C6 XX 
BD 01 AO 
C6 XX 


8C 06 F8 


Label 


CRLFL 
CRLF2 


LOOP 


LF2 


LPTAB 


NOTAB 
LP3 


Onerator 


Operand 
SAVE 


fo) ve) 
PDATAL 
XXXX 


CLRPOP 


03-OF 
LINE2 
MODE 
LPTAB 
NOTAB 
01-OD 
SPCR 
03-O0F 
00-80 
MDCTRL 


LP3 
MODE 
LPCR 
NOCR 
CRLF1 


Cormnents 


Save index register 
Save A in B 
Print "crlf" 


Restpre index repister 
and add one to it 
Clear population count 
Line count 3-15 


If this is a skip loop dont print 
spaces to center display 


Tab count 1-13 
Center pattern 
Space count 3-15 


Mode control O=print, 80=input,1-7F=skip 


If this is a skiv loop dont print 
a carriage return and line feed 


Go print "crlf" 


Store index 
Clear right border space 
Compute left border 


Get left, border location 
CLEAR LEFT border space 


Get line count 
Decrement it 

if # O do another line 
Clear bottom border 


FOR SALE 


Special price on "INNOTRONICS" Full Sized Floppy Disc Unit 
when purchased with TARBELL Floppy Disc Interface Board. If 
interested, contact Don Stevens 


KEKE KEKERKKEKKKEKKEKREKRRKERKR REE ER REKEKKKEKEEEKKRKERERREERKKEREKEKEK 


Contact DON SENZIG if you are interested in demonstrating your 
system at the Science Fiction Club Show which will be held the 
first part of June. Don's phone is 263-7792. 


KEKKRKEKEKKEEKEKEKERKREKEKEEKRKEKRREKRKEEKRKREKEKEKEKREKREREKRKKKEKKKKRKKKKK 


SPECIAL PRICE to Clubmembers on DYSAN Soft Sectored Floppy 
Discs - Both full sized and mini-floppy discs available. If 
interested, contact Don Stevens 


KRHEKKEKKKEKEKEREKKEKEKKEEKEKREEKKEKKKEKEEKERKKRKEKEKREKREKKRKEKRREKRKKKKRKKKRKEE 


In forthcoming issues, I hope to publish a column which will 
feature systems of clubmembers. Tf you are interested in your 
system being featured in this column, please contact me for 
particulars. 


RRKEKEKKEKEKKEKEKREEKRKKEKREKKRERREEK EERE KEKEKEKRERERKEKKEEREKEKKKKKKKRKKKK 


If you have anything to SELL or TRADE and wish to have it 
published (No Charqe), please contact the Fditor. 
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MEETING NOTICE 


| 
The monthly meeting of the Wisconsin Computer Society will be 
held this coming Saturday, MAY 6, 1978. It will be held at | 
the WAUKESHA TECHNICAL INSTITUTE. The room location has been | 
changed - SCIENCE BLDG., Rooms $206 & $207. 


PROGRAM AGENDA 
CP/M DISK OPERATING SYSTEM will be discussed. Members are 


asked to bring. along to the meeting any items that would be of 
interest to other club members. 


NEWSLETTER 


The Newsletter Editor is still looking for articlers of 
interest to publish. Surely with all of that vast talent out 
there, someone has something to submit!! | 


